#!/usr/bin/perl -w

print "enter path \n";
chomp ($path = <STDIN>);

chdir "$path" or die "cannot chdir to $path $! \n";

@list = glob "$path/*";
foreach (@list) {
print "one file is $_ \n";
}
